home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64 / help & trace (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  71 lines
  1. 100 rem **************************
  2. 110 rem *                        *
  3. 120 rem * extended help & trace  *
  4. 122 rem *                        *
  5. 124 rem *     c 16 / c 116       *
  6. 130 rem *                        *
  7. 134 rem *                        *
  8. 140 rem * by wolfgang wirth      *
  9. 144 rem *                        *
  10. 150 rem *    theodor-heuss-ring  *
  11. 154 rem *                        *
  12. 160 rem *    6556 woellstein     *
  13. 170 rem *                        *
  14. 180 rem **************************
  15. 190 rem
  16. 200 rem
  17. 220 adresse=819:anzahl=8
  18. 230 for zeile=410 to 760 step 10
  19. 240 summe=0
  20. 250 if zeile=760 then anzahl=3
  21. 260 for spalte=1 to anzahl
  22. 270 read byte$:byte=(NULL)(byte$)
  23. 280 summe=summe+byte and 255
  24. 290 poke adresse,byte
  25. 300 adresse=adresse+1
  26. 310 next
  27. 320 read test$
  28. 330 if summe=(NULL)(test$) then 360
  29. 340 print"fehler in zeile";zeile
  30. 350 flag=1
  31. 360 next
  32. 370 if flag then end
  33. 380 sys 1082
  34. 400 rem
  35. 410 data38,66,53,a0,03,84,49,84,e5
  36. 420 data0f,20,5f,a4,a9,20,a4,49,e8
  37. 430 data29,7f,20,b2,90,c9,22,d0,c5
  38. 440 data06,a5,0f,49,ff,85,0f,c8,5e
  39. 450 dataf0,09,a2,00,86,c2,24,53,5a
  40. 460 data10,19,a6,60,98,18,65,5f,a3
  41. 470 data90,01,e8,ec,f6,04,d0,0b,3a
  42. 480 datacd,f5,04,90,06,f0,04,26,76
  43. 490 datac2,46,53,20,d1,04,f0,e3,23
  44. 500 data10,c8,c9,ff,f0,c4,24,0f,87
  45. 510 data30,c0,aa,84,49,a0,81,84,0c
  46. 520 data23,a0,8e,84,22,a0,00,ca,61
  47. 530 data10,0f,b1,22,48,e6,22,d0,12
  48. 540 data02,e6,23,68,10,f4,30,ef,96
  49. 550 datac8,b1,22,30,99,20,b2,90,c6
  50. 560 datad0,f6,60,ae,ef,04,e8,f0,9f
  51. 570 data19,ad,f0,04,ac,f1,04,85,e0
  52. 580 data14,84,15,20,3d,8a,90,0a,2e
  53. 590 data20,3e,90,a6,14,a5,15,20,82
  54. 600 data33,03,4c,3e,90,20,73,04,e7
  55. 610 data20,d9,03,4c,dc,8b,f0,83,22
  56. 620 data2c,eb,02,10,2e,24,81,10,0c
  57. 630 data2a,48,a4,3c,a6,3b,d0,01,04
  58. 640 data88,ca,8e,f5,04,8c,f6,04,5f
  59. 650 dataa5,39,a4,3a,85,14,84,15,ee
  60. 660 data20,3d,8a,a6,14,a5,15,20,7b
  61. 670 data33,03,20,3e,90,20,dd,eb,0c
  62. 680 dataf0,fb,68,c9,ea,f0,03,4c,45
  63. 690 data3f,8c,20,73,04,4c,ae,03,5f
  64. 700 dataa2,ff,86,3a,20,5a,88,86,e9
  65. 710 data3b,84,3c,20,73,04,aa,f0,2c
  66. 720 dataef,90,09,20,53,89,20,79,1d
  67. 730 data04,4c,d3,03,4c,2e,87,a2,c9
  68. 740 data03,8e,09,03,e8,8e,03,03,19
  69. 750 dataa2,d0,8e,08,03,a2,1b,8e,56
  70. 760 data02,03,60,65
  71.